home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpwt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  15.0 KB  |  688 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpwt.h"
  4. init_cmpwt(){do_init(VV);}
  5. /*    local entry for function WT-COMMENT    */
  6.  
  7. static object LI1(V1,va_alist)
  8.     object V1;
  9.     va_dcl 
  10. {    
  11.     va_list ap;
  12.     int narg = VFUN_NARGS; VMB1 VMS1 VMV1
  13.     {object V2;
  14.     object V3;
  15.     if(narg <1) too_few_arguments();
  16.     V2= V1;
  17.     narg = narg - 1;
  18.     if (narg <= 0) goto T1;
  19.     else {
  20.     va_start(ap);
  21.     V3= va_arg(ap,object);}
  22.     --narg; goto T2;
  23. T1:;
  24.     V3= Cnil;
  25. T2:;
  26.     princ_str("\n/*    ",VV[0]);
  27.     (void)(princ((V2),symbol_value(VV[0])));
  28.     if(((V3))==Cnil){
  29.     goto T6;}
  30.     {register object V4;
  31.     V4= symbol_name((V3));
  32.     {register int V5;
  33.     register int V6;
  34.     V5= length((V4));
  35.     V6= 0;
  36. T13:;
  37.     if(!((V6)>=(V5))){
  38.     goto T14;}
  39.     goto T6;
  40. T14:;
  41.     {register unsigned char V7;
  42.     V7= char_code(elt((V4),V6));
  43.     base[0]= code_char(V7);
  44.     base[1]= VV[1];
  45.     vs_top=(vs_base=base+0)+2;
  46.     Lchar_eq();
  47.     vs_top=sup;
  48.     if((vs_base[0])!=Cnil){
  49.     goto T18;}
  50.     (void)(princ(code_char(V7),symbol_value(VV[0])));}
  51. T18:;
  52.     V6= (V6)+1;
  53.     goto T13;}}
  54. T6:;
  55.     princ_str("    */\n",VV[0]);
  56.     {object V8 = Cnil;
  57.     VMR1(V8)}}
  58.     }
  59. /*    local entry for function WT1    */
  60.  
  61. static object LI2(V10)
  62.  
  63. register object V10;
  64. {     VMB2 VMS2 VMV2
  65. TTL:;
  66.     if(type_of((V10))==t_string){
  67.     goto T29;}
  68.     if(type_of((V10))==t_fixnum||type_of((V10))==t_bignum){
  69.     goto T29;}
  70.     if(!(type_of((V10))==t_character)){
  71.     goto T30;}
  72. T29:;
  73.     (void)(princ((V10),symbol_value(VV[0])));
  74.     goto T28;
  75. T30:;
  76.     if(type_of((V10))==t_longfloat){
  77.     goto T36;}
  78.     if(!(type_of((V10))==t_shortfloat)){
  79.     goto T37;}
  80. T36:;
  81.     base[0]= symbol_value(VV[0]);
  82.     base[1]= VV[2];
  83.     base[2]= (V10);
  84.     vs_top=(vs_base=base+0)+3;
  85.     Lformat();
  86.     vs_top=sup;
  87.     goto T28;
  88. T37:;
  89.     base[0]= (V10);
  90.     vs_top=(vs_base=base+0)+1;
  91.     (void) (*Lnk43)();
  92.     vs_top=sup;
  93. T28:;
  94.     {object V11 = Cnil;
  95.     VMR2(V11)}
  96. }
  97. /*    local entry for function WT-H1    */
  98.  
  99. static object LI3(V13)
  100.  
  101. register object V13;
  102. {     VMB3 VMS3 VMV3
  103. TTL:;
  104.     if(!(type_of((V13))==t_cons)){
  105.     goto T47;}
  106.     {object V14;
  107.     V14= get(car((V13)),VV[3],Cnil);
  108.     if(((V14))==Cnil){
  109.     goto T51;}
  110.     base[0]= (V14);
  111.     {object V15;
  112.     V15= cdr((V13));
  113.      vs_top=base+1;
  114.      while(!endp(V15))
  115.      {vs_push(car(V15));V15=cdr(V15);}
  116.     vs_base=base+1;}
  117.     super_funcall_no_event(base[0]);
  118.     vs_top=sup;
  119.     goto T45;
  120. T51:;
  121.     base[0]= VV[4];
  122.     base[1]= (V13);
  123.     vs_top=(vs_base=base+0)+2;
  124.     (void) (*Lnk44)();
  125.     vs_top=sup;
  126.     goto T45;}
  127. T47:;
  128.     (void)(princ((V13),symbol_value(VV[5])));
  129. T45:;
  130.     {object V16 = Cnil;
  131.     VMR3(V16)}
  132. }
  133. /*    local entry for function PUSH-DATA-INCF    */
  134.  
  135. static object LI4(V18)
  136.  
  137. object V18;
  138. {     VMB4 VMS4 VMV4
  139. TTL:;
  140.     base[0]= (V18);
  141.     base[1]= small_fixnum(-1000);
  142.     vs_top=(vs_base=base+0)+2;
  143.     (void) (*Lnk46)();
  144.     vs_top=sup;
  145.     V19= vs_base[0];
  146.     V20= make_cons(V19,(V18));
  147.     (void)((VFUN_NARGS=2,(*(LnkLI45))(/* INLINE-ARGS */V20,car(symbol_value(VV[6])))));
  148.     setq(VV[7],number_plus(symbol_value(VV[7]),small_fixnum(1)));
  149.     {object V21 = symbol_value(VV[7]);
  150.     VMR4(V21)}
  151. }
  152. /*    local entry for function WT-DATA1    */
  153.  
  154. static object LI5(V23)
  155.  
  156. object V23;
  157. {     VMB5 VMS5 VMV5
  158.     bds_check;
  159. TTL:;
  160.     bds_bind(VV[8],Cnil);
  161.     bds_bind(VV[9],small_fixnum(10));
  162.     bds_bind(VV[10],Ct);
  163.     bds_bind(VV[11],Cnil);
  164.     bds_bind(VV[12],Cnil);
  165.     bds_bind(VV[13],Cnil);
  166.     bds_bind(VV[14],VV[15]);
  167.     bds_bind(VV[16],Ct);
  168.     bds_bind(VV[17],Ct);
  169.     bds_bind(VV[18],Ct);
  170.     bds_bind(VV[19],Ct);
  171.     bds_bind(VV[20],Ct);
  172.     princ_char(10,VV[21]);
  173.     {object V24 = prin1((V23),symbol_value(VV[21]));
  174.     bds_unwind1;
  175.     bds_unwind1;
  176.     bds_unwind1;
  177.     bds_unwind1;
  178.     bds_unwind1;
  179.     bds_unwind1;
  180.     bds_unwind1;
  181.     bds_unwind1;
  182.     bds_unwind1;
  183.     bds_unwind1;
  184.     bds_unwind1;
  185.     bds_unwind1;
  186.     VMR5(V24)}
  187. }
  188. /*    local entry for function VERIFY-DATA-VECTOR    */
  189.  
  190. static object LI6(V26)
  191.  
  192. register object V26;
  193. {     VMB6 VMS6 VMV6
  194. TTL:;
  195.     {register object V27;
  196.     V27= Cnil;
  197.     {register object V28;
  198.     register object V29;
  199.     V28= make_fixnum(length((V26)));
  200.     V29= small_fixnum(0);
  201. T68:;
  202.     if(!(number_compare((V29),(V28))>=0)){
  203.     goto T69;}
  204.     goto T64;
  205. T69:;
  206.     V27= aref1((V26),fixint((V29)));
  207.     {register object V30;
  208.     base[1]= cdr((V27));
  209.     base[2]= small_fixnum(-1000);
  210.     vs_top=(vs_base=base+1)+2;
  211.     (void) (*Lnk46)();
  212.     vs_top=sup;
  213.     V30= vs_base[0];
  214.     if(eql(car((V27)),(V30))){
  215.     goto T75;}
  216.     (void)((VFUN_NARGS=2,(*(LnkLI47))(VV[22],cdr((V27)))));}
  217. T75:;
  218.     (void)(aset1((V26),fixint((V29)),cdr((V27))));
  219.     V29= one_plus((V29));
  220.     goto T68;}
  221. T64:;
  222.     {object V31 = (V26);
  223.     VMR6(V31)}}
  224. }
  225. /*    local entry for function ADD-INIT    */
  226.  
  227. static object LI7(V32,va_alist)
  228.     object V32;
  229.     va_dcl 
  230. {    
  231.     va_list ap;
  232.     int narg = VFUN_NARGS; VMB7 VMS7 VMV7
  233.     {object V33;
  234.     object V34;
  235.     if(narg <1) too_few_arguments();
  236.     V33= V32;
  237.     narg = narg - 1;
  238.     if (narg <= 0) goto T85;
  239.     else {
  240.     va_start(ap);
  241.     V34= va_arg(ap,object);}
  242.     --narg; goto T86;
  243. T85:;
  244.     V34= Cnil;
  245. T86:;
  246.     {object V35;
  247.     base[0]= (V33);
  248.     base[1]= small_fixnum(-1000);
  249.     vs_top=(vs_base=base+0)+2;
  250.     (void) (*Lnk46)();
  251.     vs_top=sup;
  252.     V36= vs_base[0];
  253.     V35= make_cons(V36,(V33));
  254.     {object V37;
  255.     object V38;
  256.     V37= symbol_value(VV[6]);
  257.     if(((V34))==Cnil){
  258.     goto T96;}
  259.     V39= cadr(symbol_value(VV[6]));
  260.     V40= make_cons((V35),Cnil);
  261.     V38= nconc(/* INLINE-ARGS */V39,/* INLINE-ARGS */V40);
  262.     goto T94;
  263. T96:;
  264.     V38= make_cons((V35),cadr(symbol_value(VV[6])));
  265. T94:;
  266.     if(type_of(cdr((V37)))!=t_cons)FEwrong_type_argument(Scons,cdr((V37)));
  267.     (cdr((V37)))->c.c_car = (V38);
  268.     (void)(cdr((V37)));}
  269.     {object V41 = (V33);
  270.     VMR7(V41)}}}
  271.     }
  272. /*    function definition for WT-DATA-FILE    */
  273.  
  274. static L8()
  275. {register object *base=vs_base;
  276.     register object *sup=base+VM8; VC8
  277.     vs_reserve(VM8);
  278.     check_arg(0);
  279.     vs_top=sup;
  280. TTL:;
  281.     (void)((*(LnkLI48))(car(symbol_value(VV[6]))));
  282.     {object V42;
  283.     V43= nreverse(cadr(symbol_value(VV[6])));
  284.     V42= (*(LnkLI49))(/* INLINE-ARGS */V43,VV[23]);
  285.     (void)((*(LnkLI48))((V42)));
  286.     V44= car(symbol_value(VV[6]));
  287.     { save_avma;
  288.     V45 = stoi(length(car(symbol_value(VV[6]))));
  289.     V46= make_integer(subii(V45,stoi(1)));
  290.     V47= make_cons(VV[24],(V42));
  291.     (void)(aset1(/* INLINE-ARGS */V44,fixint(/* INLINE-ARGS */V46),/* INLINE-ARGS */V47));restore_avma;}
  292.     {object V48;
  293.     object V49;
  294.     V48= symbol_value(VV[6]);
  295.     V49= nreverse(caddr(symbol_value(VV[6])));
  296.     if(type_of(cddr((V48)))!=t_cons)FEwrong_type_argument(Scons,cddr((V48)));
  297.     (cddr((V48)))->c.c_car = (V49);
  298.     (void)(cddr((V48)));}
  299.     if((symbol_value(VV[25]))==Cnil){
  300.     goto T108;}
  301.     vs_base=vs_top;
  302.     (void) (*Lnk50)();
  303.     return;
  304. T108:;
  305.     base[1]= symbol_value(VV[21]);
  306.     base[2]= VV[26];
  307.     vs_top=(vs_base=base+1)+2;
  308.     Lformat();
  309.     vs_top=sup;
  310.     {register object V50;
  311.     register object V51;
  312.     V50= caddr(symbol_value(VV[6]));
  313.     V51= car((V50));
  314. T117:;
  315.     if(!(endp((V50)))){
  316.     goto T118;}
  317.     goto T113;
  318. T118:;
  319.     base[3]= symbol_value(VV[21]);
  320.     base[4]= VV[27];
  321.     vs_top=(vs_base=base+3)+2;
  322.     Lformat();
  323.     vs_top=sup;
  324.     (void)((*(LnkLI51))((V51)));
  325.     V50= cdr((V50));
  326.     V51= car((V50));
  327.     goto T117;}
  328. T113:;
  329.     (void)((*(LnkLI51))(car(symbol_value(VV[6]))));
  330.     base[1]= symbol_value(VV[21]);
  331.     base[2]= VV[28];
  332.     vs_top=(vs_base=base+1)+2;
  333.     Lformat();
  334.     return;}
  335. }
  336. /*    function definition for WT-FASD-DATA-FILE    */
  337.  
  338. static L9()
  339. {register object *base=vs_base;
  340.     register object *sup=base+VM9; VC9
  341.     vs_reserve(VM9);
  342.     check_arg(0);
  343.     vs_top=sup;
  344. TTL:;
  345.     {object V52;
  346.     object V53;
  347.     V52= car(symbol_value(VV[6]));
  348.     V53= Cnil;
  349.     base[1]= (V52);
  350.     base[2]= elt(car(symbol_value(VV[25])),1);
  351.     vs_top=(vs_base=base+1)+2;
  352.     (void) (*Lnk52)();
  353.     vs_top=sup;
  354.     V53= caddr(symbol_value(VV[6]));
  355.     if(((V53))==Cnil){
  356.     goto T139;}
  357.     {register object V54;
  358.     register object V55;
  359.     V54= (V53);
  360.     V55= car((V54));
  361. T146:;
  362.     if(!(endp((V54)))){
  363.     goto T147;}
  364.     goto T139;
  365. T147:;
  366.     base[2]= small_fixnum(1);
  367.     base[3]= symbol_value(VV[21]);
  368.     vs_top=(vs_base=base+2)+2;
  369.     Lwrite_byte();
  370.     vs_top=sup;
  371.     base[2]= (V55);
  372.     base[3]= car(symbol_value(VV[25]));
  373.     vs_top=(vs_base=base+2)+2;
  374.     (void) (*Lnk53)();
  375.     vs_top=sup;
  376.     V54= cdr((V54));
  377.     V55= car((V54));
  378.     goto T146;}
  379. T139:;
  380.     base[1]= (V52);
  381.     base[2]= car(symbol_value(VV[25]));
  382.     vs_top=(vs_base=base+1)+2;
  383.     (void) (*Lnk53)();
  384.     vs_top=sup;
  385.     base[1]= car(symbol_value(VV[25]));
  386.     vs_top=(vs_base=base+1)+1;
  387.     (void) (*Lnk54)();
  388.     return;}
  389. }
  390. /*    local entry for function WT-DATA-BEGIN    */
  391.  
  392. static object LI10()
  393.  
  394. {     VMB10 VMS10 VMV10
  395. TTL:;
  396.     {object V56 = Cnil;
  397.     VMR10(V56)}
  398. }
  399. /*    local entry for function WT-DATA-END    */
  400.  
  401. static object LI11()
  402.  
  403. {     VMB11 VMS11 VMV11
  404. TTL:;
  405.     {object V57 = Cnil;
  406.     VMR11(V57)}
  407. }
  408. /*    local entry for function WT-DATA-PACKAGE-OPERATION    */
  409.  
  410. static object LI12(V59)
  411.  
  412. object V59;
  413. {     VMB12 VMS12 VMV12
  414. TTL:;
  415.     {object V60;
  416.     object V61;
  417.     V60= symbol_value(VV[6]);
  418.     V61= make_cons((V59),caddr((V60)));
  419.     if(type_of(cddr((V60)))!=t_cons)FEwrong_type_argument(Scons,cddr((V60)));
  420.     (cddr((V60)))->c.c_car = (V61);
  421.     (void)(cddr((V60)));
  422.     {object V62 = (V61);
  423.     VMR12(V62)}}
  424. }
  425. /*    macro definition for WT    */
  426.  
  427. static L13()
  428. {register object *base=vs_base;
  429.     register object *sup=base+VM13; VC13
  430.     vs_reserve(VM13);
  431.     check_arg(2);
  432.     vs_top=sup;
  433.     {object V63=base[0]->c.c_cdr;
  434.     base[2]= V63;
  435.     base[3]= Cnil;}
  436.     {register object V64;
  437.     register object V65;
  438.     V64= base[2];
  439.     V65= car((V64));
  440. T173:;
  441.     if(!(endp((V64)))){
  442.     goto T174;}
  443.     V66= make_cons(Cnil,base[3]);
  444.     V67= reverse(/* INLINE-ARGS */V66);
  445.     base[5]= make_cons(VV[29],/* INLINE-ARGS */V67);
  446.     vs_top=(vs_base=base+5)+1;
  447.     return;
  448. T174:;
  449.     if(!(type_of((V65))==t_string)){
  450.     goto T180;}
  451.     V68= list(3,VV[30],(V65),VV[0]);
  452.     base[3]= make_cons(/* INLINE-ARGS */V68,base[3]);
  453.     goto T178;
  454. T180:;
  455.     V69= list(2,VV[31],(V65));
  456.     base[3]= make_cons(/* INLINE-ARGS */V69,base[3]);
  457. T178:;
  458.     V64= cdr((V64));
  459.     V65= car((V64));
  460.     goto T173;}
  461. }
  462. /*    macro definition for WT-H    */
  463.  
  464. static L14()
  465. {register object *base=vs_base;
  466.     register object *sup=base+VM14; VC14
  467.     vs_reserve(VM14);
  468.     check_arg(2);
  469.     vs_top=sup;
  470.     {object V70=base[0]->c.c_cdr;
  471.     base[2]= V70;
  472.     base[3]= Cnil;}
  473.     if(!(endp(base[2]))){
  474.     goto T191;}
  475.     base[4]= VV[32];
  476.     vs_top=(vs_base=base+4)+1;
  477.     return;
  478. T191:;
  479.     if(!(type_of(car(base[2]))==t_string)){
  480.     goto T194;}
  481.     {register object V71;
  482.     register object V72;
  483.     V71= cdr(base[2]);
  484.     V72= car((V71));
  485. T199:;
  486.     if(!(endp((V71)))){
  487.     goto T200;}
  488.     V73= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[34],car(base[2])));
  489.     V74= list(3,VV[30],/* INLINE-ARGS */V73,VV[5]);
  490.     V75= make_cons(Cnil,base[3]);
  491.     base[6]= listA(3,VV[29],/* INLINE-ARGS */V74,reverse(/* INLINE-ARGS */V75));
  492.     vs_top=(vs_base=base+6)+1;
  493.     return;
  494. T200:;
  495.     if(!(type_of((V72))==t_string)){
  496.     goto T206;}
  497.     V76= list(3,VV[30],(V72),VV[5]);
  498.     base[3]= make_cons(/* INLINE-ARGS */V76,base[3]);
  499.     goto T204;
  500. T206:;
  501.     V77= list(2,VV[35],(V72));
  502.     base[3]= make_cons(/* INLINE-ARGS */V77,base[3]);
  503. T204:;
  504.     V71= cdr((V71));
  505.     V72= car((V71));
  506.     goto T199;}
  507. T194:;
  508.     {register object V78;
  509.     register object V79;
  510.     V78= base[2];
  511.     V79= car((V78));
  512. T218:;
  513.     if(!(endp((V78)))){
  514.     goto T219;}
  515.     V80= make_cons(Cnil,base[3]);
  516.     base[5]= listA(3,VV[29],VV[36],reverse(/* INLINE-ARGS */V80));
  517.     vs_top=(vs_base=base+5)+1;
  518.     return;
  519. T219:;
  520.     if(!(type_of((V79))==t_string)){
  521.     goto T225;}
  522.     V81= list(3,VV[30],(V79),VV[5]);
  523.     base[3]= make_cons(/* INLINE-ARGS */V81,base[3]);
  524.     goto T223;
  525. T225:;
  526.     V82= list(2,VV[35],(V79));
  527.     base[3]= make_cons(/* INLINE-ARGS */V82,base[3]);
  528. T223:;
  529.     V78= cdr((V78));
  530.     V79= car((V78));
  531.     goto T218;}
  532. }
  533. /*    macro definition for WT-NL    */
  534.  
  535. static L15()
  536. {register object *base=vs_base;
  537.     register object *sup=base+VM15; VC15
  538.     vs_reserve(VM15);
  539.     check_arg(2);
  540.     vs_top=sup;
  541.     {object V83=base[0]->c.c_cdr;
  542.     base[2]= V83;
  543.     base[3]= Cnil;}
  544.     if(!(endp(base[2]))){
  545.     goto T236;}
  546.     base[4]= VV[37];
  547.     vs_top=(vs_base=base+4)+1;
  548.     return;
  549. T236:;
  550.     if(!(type_of(car(base[2]))==t_string)){
  551.     goto T239;}
  552.     {register object V84;
  553.     register object V85;
  554.     V84= cdr(base[2]);
  555.     V85= car((V84));
  556. T244:;
  557.     if(!(endp((V84)))){
  558.     goto T245;}
  559.     V86= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[38],car(base[2])));
  560.     V87= list(3,VV[30],/* INLINE-ARGS */V86,VV[0]);
  561.     V88= make_cons(Cnil,base[3]);
  562.     base[6]= listA(3,VV[29],/* INLINE-ARGS */V87,reverse(/* INLINE-ARGS */V88));
  563.     vs_top=(vs_base=base+6)+1;
  564.     return;
  565. T245:;
  566.     if(!(type_of((V85))==t_string)){
  567.     goto T251;}
  568.     V89= list(3,VV[30],(V85),VV[0]);
  569.     base[3]= make_cons(/* INLINE-ARGS */V89,base[3]);
  570.     goto T249;
  571. T251:;
  572.     V90= list(2,VV[31],(V85));
  573.     base[3]= make_cons(/* INLINE-ARGS */V90,base[3]);
  574. T249:;
  575.     V84= cdr((V84));
  576.     V85= car((V84));
  577.     goto T244;}
  578. T239:;
  579.     {register object V91;
  580.     register object V92;
  581.     V91= base[2];
  582.     V92= car((V91));
  583. T263:;
  584.     if(!(endp((V91)))){
  585.     goto T264;}
  586.     V93= make_cons(Cnil,base[3]);
  587.     base[5]= listA(3,VV[29],VV[39],reverse(/* INLINE-ARGS */V93));
  588.     vs_top=(vs_base=base+5)+1;
  589.     return;
  590. T264:;
  591.     if(!(type_of((V92))==t_string)){
  592.     goto T270;}
  593.     V94= list(3,VV[30],(V92),VV[0]);
  594.     base[3]= make_cons(/* INLINE-ARGS */V94,base[3]);
  595.     goto T268;
  596. T270:;
  597.     V95= list(2,VV[31],(V92));
  598.     base[3]= make_cons(/* INLINE-ARGS */V95,base[3]);
  599. T268:;
  600.     V91= cdr((V91));
  601.     V92= car((V91));
  602.     goto T263;}
  603. }
  604. /*    macro definition for WT-NL1    */
  605.  
  606. static L16()
  607. {register object *base=vs_base;
  608.     register object *sup=base+VM16; VC16
  609.     vs_reserve(VM16);
  610.     check_arg(2);
  611.     vs_top=sup;
  612.     {object V96=base[0]->c.c_cdr;
  613.     base[2]= V96;
  614.     base[3]= Cnil;}
  615.     if(!(endp(base[2]))){
  616.     goto T281;}
  617.     base[4]= VV[40];
  618.     vs_top=(vs_base=base+4)+1;
  619.     return;
  620. T281:;
  621.     if(!(type_of(car(base[2]))==t_string)){
  622.     goto T284;}
  623.     {register object V97;
  624.     register object V98;
  625.     V97= cdr(base[2]);
  626.     V98= car((V97));
  627. T289:;
  628.     if(!(endp((V97)))){
  629.     goto T290;}
  630.     V99= (VFUN_NARGS=3,(*(LnkLI55))(VV[33],VV[41],car(base[2])));
  631.     V100= list(3,VV[30],/* INLINE-ARGS */V99,VV[0]);
  632.     V101= make_cons(Cnil,base[3]);
  633.     base[6]= listA(3,VV[29],/* INLINE-ARGS */V100,reverse(/* INLINE-ARGS */V101));
  634.     vs_top=(vs_base=base+6)+1;
  635.     return;
  636. T290:;
  637.     if(!(type_of((V98))==t_string)){
  638.     goto T296;}
  639.     V102= list(3,VV[30],(V98),VV[0]);
  640.     base[3]= make_cons(/* INLINE-ARGS */V102,base[3]);
  641.     goto T294;
  642. T296:;
  643.     V103= list(2,VV[31],(V98));
  644.     base[3]= make_cons(/* INLINE-ARGS */V103,base[3]);
  645. T294:;
  646.     V97= cdr((V97));
  647.     V98= car((V97));
  648.     goto T289;}
  649. T284:;
  650.     {register object V104;
  651.     register object V105;
  652.     V104= base[2];
  653.     V105= car((V104));
  654. T308:;
  655.     if(!(endp((V104)))){
  656.     goto T309;}
  657.     V106= make_cons(Cnil,base[3]);
  658.     base[5]= listA(3,VV[29],VV[42],reverse(/* INLINE-ARGS */V106));
  659.     vs_top=(vs_base=base+5)+1;
  660.     return;
  661. T309:;
  662.     if(!(type_of((V105))==t_string)){
  663.     goto T315;}
  664.     V107= list(3,VV[30],(V105),VV[0]);
  665.     base[3]= make_cons(/* INLINE-ARGS */V107,base[3]);
  666.     goto T313;
  667. T315:;
  668.     V108= list(2,VV[31],(V105));
  669.     base[3]= make_cons(/* INLINE-ARGS */V108,base[3]);
  670. T313:;
  671.     V104= cdr((V104));
  672.     V105= car((V104));
  673.     goto T308;}
  674. }
  675. static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* CONCATENATE */
  676. static LnkT54(){ call_or_link(VV[54],&Lnk54);} /* CLOSE-FASD */
  677. static LnkT53(){ call_or_link(VV[53],&Lnk53);} /* WRITE-FASD-TOP */
  678. static LnkT52(){ call_or_link(VV[52],&Lnk52);} /* FIND-SHARING-TOP */
  679. static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* WT-DATA1 */
  680. static LnkT50(){ call_or_link(VV[50],&Lnk50);} /* WT-FASD-DATA-FILE */
  681. static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* COERCE */
  682. static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,1,ap);} /* VERIFY-DATA-VECTOR */
  683. static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[47],&LnkLI47,ap);} /* CMPWARN */
  684. static LnkT46(){ call_or_link(VV[46],&Lnk46);} /* HASH-EQUAL */
  685. static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],&LnkLI45,ap);} /* VECTOR-PUSH-EXTEND */
  686. static LnkT44(){ call_or_link(VV[44],&Lnk44);} /* CMPILER-ERROR */
  687. static LnkT43(){ call_or_link(VV[43],&Lnk43);} /* WT-LOC */
  688.